(SETQ RATING '())
(SETQ PURPOSE '())
(SETQ LESSONS '())
(SETQ FITNESS '())
(SETQ PRESSUPS '())

(DEFUN MDI () 
	
	(COND 
		(
			(NOT (OR (NULL RATING) (NULL PURPOSE) )	) 
			(COND 	
					((AND (EQUAL RATING "BEGINNER") (EQUAL PURPOSE "FUN")) (PRINT "Resort: St. Sartre"))
				  	((AND (EQUAL RATING "BEGINNER") (EQUAL PURPOSE "SERIOUS")) (PRINT "Resort: Schloss Heidegger"))
				  	((AND (EQUAL RATING "ADVANCED") (EQUAL PURPOSE "SERIOUS")) (PRINT "Resort: Chateau Derrida"))
				  	((AND (EQUAL RATING "ADVANCED") (EQUAL PURPOSE "FUN")) (PRINT "Resort: Wittgenstein Gladbach"))
				  	
				  	()
				
			)
		)	
			
		(
			(COND	
					((NOT (NULL LESSONS)) 
						(COND	
							((< LESSONS 30) 
								(SETQ RATING "BEGINNER"))
							
							((COND	
								((NOT	(NULL FITNESS) )
									(COND	
										((EQUAL FITNESS "POOR") (SETQ RATING "BEGINNER"))	
										
										((SETQ RATING "ADVANCED"))
									)	
								)

								
								((COND	
									((NOT (NULL PRESSUPS)) 		
										(COND												
											((< PRESSUPS 10)	(SETQ FITNESS "POOR"))
											
											((SETQ FITNESS "GOOD"))
										)
									)
									
									(
										(PRINT "PRESSUPS")
										(SETQ PRESSUPS (READ))
									)
								))
							))
						
						)
					)			
					
					(
						(PRINT "LESSONS")
						(SETQ LESSONS (READ))
					)
			)
			(COND 
				((NULL PURPOSE) 						
					(PRINT "PURPOSE?")
					(PRINT "1. FUN")
					(PRINT "2. SERIOUS")
					(SETQ PURPOSE (READ))
					
					(COND 
						((EQUAL PURPOSE 1) (SETQ PURPOSE "FUN"))
						((EQUAL PURPOSE 2) (SETQ PURPOSE "SERIOUS"))
						((SETQ PURPOSE '()))
					)												
				)
			)
			(MDI)				
									
		)
			
		

		
			
				
	)
	
	
	
)
(MDI)


